From: Thien-Thi Nguyen Date: Sat, 17 Jan 2004 13:46:09 +0000 (+0000) Subject: (diary-entry-time): Fix typo/bug: X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~24463 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=db114bddfe07209d92ded3ec25826e13be55a46d;p=emacs.git (diary-entry-time): Fix typo/bug: Remove spurious left square bracket in XX:XXam regexp. --- diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index 28fcb50ef14..d2a0075fb71 100644 --- a/lisp/calendar/diary-lib.el +++ b/lisp/calendar/diary-lib.el @@ -1118,7 +1118,7 @@ be used instead of a colon (:) to separate the hour and minute parts." (if (equal ?a (downcase (aref s (match-beginning 2)))) 0 1200))) ((string-match ; Hour and minute XX:XXam or XX:XXpm - "\\`[ \t\n\\^M]*\\([0-9]?[0-9]\\)[:.][\\([0-9][0-9]\\)\\([ap]\\)m\\>" s) + "\\`[ \t\n\\^M]*\\([0-9]?[0-9]\\)[:.]\\([0-9][0-9]\\)\\([ap]\\)m\\>" s) (+ (* 100 (% (string-to-int (substring s (match-beginning 1) (match-end 1))) 12))